   1 .
   2 . MASTERMIND
   3 . CAROL BURKEMPER
  10 clear ;T=0;BC=140;FC=0
  15 @(1)=rnd (10)+47
  20 for Z=2to 5
  30 @(Z)=rnd (10)+47
  35 BC=(BC+1)
  40 for Y=1to Z-1
  50 if @(Z)=@(Y)goto 30
  60 next Y;next Z
  70 for R=33to -39step -8
  80 H=0;J=0;S=15;C=-63;L=77
  90 BC=141;T=T+1
  95 box 3,R,139,7,2
 100 for B=11to 15
 110 A=KP;@(B)=A
 115 if A=32goto 500
 120 CY=R;CX=C;TV=A
 130 D=KP;if D=31goto 110
 140 if D#13goto 130
 150 C=C+14;next B
 160 for W=1to 5
 170 for B=11to 15
 180 if @(W)=@(B)gosub 300
 190 next B;next W
 200 if H>0gosub 350
 210 if J>0gosub 400
 220 if H=5goto 250
 230 next R
 240 goto 70
 250 BC=241;FC=7
 260 print ;print ;CX=-50;print #2,"CORRECT IN",T
 265 print ;print " PRESS 'GO' to PLAY AGAIN
 270 A=KP;if A=13goto 10
 280 goto 270
 300 if B<15if @(B)=@(B+1)return 
 310 if @(W)=@(W+10) H=H+1;return 
 330 J=J+1;return 
 350 for N=1to H
 360 NT=6;MU=L;MU=(L-1);MU=(L+2);L=L-8;NT=3
 370 box S,R,6,6,1;S=S+15
 380 next N;return 
 400 for N=1to J
 410 NT=7;MU=L;MU=L;MU=(L-2);L=L-8;NT=3
 420 box S,R,6,6,1;box S,R,4,4,2;S=S+15
 430 next N;return 
 500 for G=1to 5
 510 CY=(R-8);CX=C
 520 TV=@(G)
 530 C=C+10
 540 next G
 550 C=-63;goto 110
:return ;run 
